home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CDS.BAT < prev    next >
DOS Batch File  |  1994-09-07  |  2KB  |  55 lines

  1. echo off
  2. cls
  3. : repeat 
  4. cls
  5. echo.     
  6. echo   ┌─────────── OTHER CD ROMS FROM PDSL VIEW CONTENTS LISTS  ──────────┐  
  7. echo   │                                                                   │ 
  8. echo   │ Press [a] VIEW CONTENTS LIST FOR SCIENTIFIC & TECHNICAL CD ROM    │
  9. echo   │       [b] VIEW CONTENTS LIST FOR BEST APPLICATIONS CD ROM         │
  10. echo   │       [c] VIEW CONTENTS LIST FOR FONTS & CLIPART CD ROM           │
  11. echo   │       [d] VIEW CONTENTS LIST FOR GREATER AND LESSER MYSTERIES CD  │
  12. echo   │                                                                   │
  13. echo   │                                                                   │
  14. echo   │                                                                   │
  15. echo   │                                                                   │
  16. echo   │                                                                   │
  17. echo   │                                                                   │
  18. echo   │                                                                   │
  19. echo   │                                                                   │  
  20. echo   │                                                                   │
  21. echo   │                                                                   │ 
  22. echo   │                                                                   │
  23. echo   │                                                                   │
  24. echo   │                 Press escape to exit back to DOS                  │ 
  25. echo   ├───────────────────────────────────────────────────────────────────┤
  26. echo   └───────────────────────────────────────────────────────────────────┘ 
  27. echo.
  28. :loop
  29. BATCH /a Hit a Key
  30. if errorlevel 124 goto loop
  31. IF ERRORLEVEL 101 GOTO loop
  32. IF ERRORLEVEL 100 GOTO d
  33. IF ERRORLEVEL  99 GOTO c
  34. IF ERRORLEVEL  98 GOTO b
  35. IF ERRORLEVEL  97 GOTO a
  36. IF ERRORLEVEL  96 GOTO loop
  37. if errorlevel  32 goto loop
  38. IF ERRORLEVEL  27 GOTO Exit
  39. if errorlevel  26 goto loop
  40. if errorlevel  13 goto loop
  41. : a
  42. VIEW INDEX.TXT
  43. goto repeat
  44. : b
  45. VIEW BEST.TXT
  46. goto repeat
  47. : c
  48. VIEW FONTS.TXT
  49. goto repeat
  50. : d
  51. VIEW MYST.TXT
  52. goto repeat
  53. :Exit
  54. exit
  55. rem Copyright (c) 1994 PDSL Sussex UK